home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / FILETEST.TEXT.txt < prev    next >
Text File  |  1996-12-24  |  796b  |  44 lines
  1.  
  2. {$L PRINTER:}
  3. program FileTest;
  4.  
  5. type Typ = record
  6.              X : integer;
  7.              Y : integer
  8.            end;
  9.  
  10. var  F1  : text;
  11.      F2  : interactive;
  12.      F3  : file of Typ;
  13.      F4  : file;
  14.      F5  : file;
  15.      I   : integer;
  16.      A   : packed array [0..511] of char;
  17.     
  18. begin
  19.   rewrite (F1, 'TEXTFILE.TEXT');
  20.   writeln (F1, 'Text');
  21.   close (F1, lock);
  22.   
  23.   rewrite (F2, 'INTFILE.TEXT');
  24.   writeln (F2, 'Interactive');
  25.   close (F2, lock);
  26.   
  27.   rewrite (F3, 'DATAFILE.DATA');
  28.   with F3^ do
  29.   begin
  30.     X := 513;
  31.     Y := 1027
  32.   end;
  33.   put (F3);
  34.   close (F3, lock);
  35.   
  36.   rewrite (F4, 'CODEFILE.CODE');
  37.   reset (F5, 'FILETEST.CODE');
  38.   for I := 0 to 1 do
  39.     if blockread (F5, A, 1) <> blockwrite (F4, A, 1)
  40.     then close (F4, normal);
  41.   close (F4, lock);
  42.   close (F5, normal)
  43. end.
  44.